Option Explicit
Sub K_Sample006()
    Dim mySht1 As Worksheet
    Dim mySht2 As Worksheet
    Dim myRng  As Range
    Dim myCell As Range
    Dim I      As Long
    Set mySht1 = Worksheets.Add				'u@sW
    mySht1.Cells(1, 1).Resize(, 3).Value = _
    Array("W", "a}", "")				'Dw
    I = 1
    For Each mySht2 In Worksheets
        If mySht2.Name <> mySht1.Name Then
            Set myRng = Nothing
            On Error Resume Next
            Set myRng = mySht2.Cells.SpecialCells(xlCellTypeFormulas)
            On Error GoTo 0
            If Not myRng Is Nothing Then
                For Each myCell In myRng.Cells
                    I = I + 1
                    mySht1.Cells(I, 1).Resize(, 3).Value = _
                    Array(mySht2.Name, myCell.Address,  "'" & myCell.Formula)
                Next
            End If
        End If
    Next
    Set myRng = Nothing						'
    Set mySht1 = Nothing
    Set mySht2 = Nothing
End Sub
